

tan2_no_imp %>%
  group_by(female) %>%
  summarise(accusation_not_true = mean(b_s9q1_mob_trustaccusers ==2, na.rm =T),
            affraid_accusation = mean(b_s9q2_mob_falseaccuse %in% c(1,2), na.rm = T),
            beat_thief = mean(beat_thief, na.rm = T))


all_tan_no_imp <- rbind(tan2_no_imp %>% select(c("accusation_not_true","afraid_accusation", "female", 
                                   "woman","community")), 
                 tan3_no_imp %>% select(c("accusation_not_true","afraid_accusation", "female", 
                                   "woman","community"))
)




# Table for main plausibility results
table_data <- 
  prepare_multiple_tables_data_no_prime(
    outcome_texts = c("Some people suspected of crimes are not necessarily criminals.", 
                    "It is somewhat or very likely [I/an innocent person] could be falsely accused."),
    outcome_vars = c("accusation_not_true","afraid_accusation"),
    data_list = list(
      as.data.frame(all_tan_no_imp), 
      as.data.frame(all_tan_no_imp)
    )
  )



sink("04_manuscript/tables/tanzania_table_no_imp.tex")
build_table_no_prime(table_data = table_data)
sink()



